home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / samba.idb / usr / samba / src / source / nmbd_packets.c.z / nmbd_packets.c
Encoding:
C/C++ Source or Header  |  1998-10-28  |  60.4 KB  |  1,960 lines
  1. /* 
  2.    Unix SMB/Netbios implementation.
  3.    Version 1.9.
  4.    NBT netbios routines and daemon - version 2
  5.    Copyright (C) Andrew Tridgell 1994-1998
  6.    Copyright (C) Luke Kenneth Casson Leighton 1994-1998
  7.    Copyright (C) Jeremy Allison 1994-1998
  8.    
  9.    This program is free software; you can redistribute it and/or modify
  10.    it under the terms of the GNU General Public License as published by
  11.    the Free Software Foundation; either version 2 of the License, or
  12.    (at your option) any later version.
  13.    
  14.    This program is distributed in the hope that it will be useful,
  15.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  16.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17.    GNU General Public License for more details.
  18.    
  19.    You should have received a copy of the GNU General Public License
  20.    along with this program; if not, write to the Free Software
  21.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.    
  23. */
  24.  
  25. #include "includes.h"
  26.  
  27. extern int ClientNMB;
  28. extern int ClientDGRAM;
  29. extern int global_nmb_port;
  30.  
  31. extern int DEBUGLEVEL;
  32.  
  33. extern int num_response_packets;
  34.  
  35. extern pstring scope;
  36. extern struct in_addr loopback_ip;
  37.  
  38. /*******************************************************************
  39.   The global packet linked-list. Incoming entries are 
  40.   added to the end of this list. It is supposed to remain fairly 
  41.   short so we won't bother with an end pointer.
  42. ******************************************************************/
  43.  
  44. static struct packet_struct *packet_queue = NULL;
  45.  
  46. /***************************************************************************
  47. Utility function to find the specific fd to send a packet out on.
  48. **************************************************************************/
  49.  
  50. static int find_subnet_fd_for_address( struct in_addr local_ip )
  51. {
  52.   struct subnet_record *subrec;
  53.  
  54.   for( subrec = FIRST_SUBNET; subrec; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  55.     if(ip_equal(local_ip, subrec->myip))
  56.       return subrec->nmb_sock;
  57.  
  58.   return ClientNMB;
  59. }
  60.  
  61. /***************************************************************************
  62. Utility function to find the specific fd to send a mailslot packet out on.
  63. **************************************************************************/
  64.  
  65. static int find_subnet_mailslot_fd_for_address( struct in_addr local_ip )
  66. {
  67.   struct subnet_record *subrec;
  68.  
  69.   for( subrec = FIRST_SUBNET; subrec; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  70.     if(ip_equal(local_ip, subrec->myip))
  71.       return subrec->dgram_sock;
  72.  
  73.   return ClientDGRAM;
  74. }
  75.  
  76. /***************************************************************************
  77. Get/Set problematic nb_flags as network byte order 16 bit int.
  78. **************************************************************************/
  79.  
  80. uint16 get_nb_flags(char *buf)
  81. {
  82.   return ((((uint16)*buf)&0xFFFF) & NB_FLGMSK);
  83. }
  84.  
  85. void set_nb_flags(char *buf, uint16 nb_flags)
  86. {
  87.   *buf++ = ((nb_flags & NB_FLGMSK) & 0xFF);
  88.   *buf = '\0';
  89. }
  90.  
  91. /***************************************************************************
  92. Dumps out the browse packet data.
  93. **************************************************************************/
  94.  
  95. static void debug_browse_data(char *outbuf, int len)
  96. {
  97.   int i,j;
  98.   for (i = 0; i < len; i+= 16)
  99.   {
  100.     DEBUG(4, ("%3x char ", i));
  101.  
  102.     for (j = 0; j < 16; j++)
  103.     {
  104.       unsigned char x = outbuf[i+j];
  105.       if (x < 32 || x > 127) 
  106.         x = '.';
  107.         
  108.       if (i+j >= len)
  109.         break;
  110.       DEBUG(4, ("%c", x));
  111.     }
  112.  
  113.     DEBUG(4, (" hex "));
  114.  
  115.     for (j = 0; j < 16; j++)
  116.     {
  117.       if (i+j >= len) 
  118.         break;
  119.       DEBUG(4, (" %02x", (unsigned char)outbuf[i+j]));
  120.     }
  121.  
  122.     DEBUG(4, ("\n"));
  123.   }
  124. }
  125.  
  126. /***************************************************************************
  127.   Generates the unique transaction identifier
  128. **************************************************************************/
  129.  
  130. static uint16 name_trn_id=0;
  131.  
  132. static uint16 generate_name_trn_id(void)
  133. {
  134.  
  135.   if (!name_trn_id)
  136.   {
  137.     name_trn_id = (time(NULL)%(unsigned)0x7FFF) + (getpid()%(unsigned)100);
  138.   }
  139.   name_trn_id = (name_trn_id+1) % (unsigned)0x7FFF;
  140.   return name_trn_id;
  141. }
  142.  
  143. /***************************************************************************
  144.  Either loops back or sends out a completed NetBIOS packet.
  145. **************************************************************************/
  146.  
  147. static BOOL send_netbios_packet(struct packet_struct *p)
  148. {
  149.   BOOL loopback_this_packet = False;
  150.  
  151.   /* Check if we are sending to or from ourselves as a WINS server. */
  152.   if(ismyip(p->ip) && (p->port == global_nmb_port))
  153.     loopback_this_packet = True;
  154.  
  155.   if(loopback_this_packet)
  156.   {
  157.     struct packet_struct *lo_packet = NULL;
  158.     DEBUG(5,("send_netbios_packet: sending packet to ourselves.\n"));
  159.     if((lo_packet = copy_packet(p)) == NULL)
  160.       return False;
  161.     queue_packet(lo_packet);
  162.   }
  163.   else if (!send_packet(p))
  164.   {
  165.     DEBUG(0,("send_netbios_packet: send_packet() to IP %s port %d failed\n",
  166.                          inet_ntoa(p->ip),p->port));
  167.     return False;
  168.   }
  169.   
  170.   return True;
  171. } 
  172.  
  173. /***************************************************************************
  174.  Sets up the common elements of an outgoing NetBIOS packet.
  175. **************************************************************************/
  176.  
  177. static struct packet_struct *create_and_init_netbios_packet(struct nmb_name *nmbname,
  178.                                                             BOOL bcast,
  179.                                                             struct in_addr to_ip)
  180. {
  181.   struct packet_struct *packet = NULL;
  182.   struct nmb_packet *nmb = NULL;
  183.  
  184.   /* Allocate the packet_struct we will return. */
  185.   if((packet = (struct packet_struct *)malloc(sizeof(*packet))) == NULL)
  186.   {
  187.     DEBUG(0,("create_and_init_netbios_packet: malloc fail (1) for packet struct.\n"));
  188.     return NULL;
  189.   }
  190.     
  191.   bzero((char *)packet,sizeof(*packet));
  192.  
  193.   nmb = &packet->packet.nmb;
  194.  
  195.   nmb->header.name_trn_id = generate_name_trn_id();
  196.   nmb->header.response = False;
  197.   nmb->header.nm_flags.recursion_desired = False;
  198.   nmb->header.nm_flags.recursion_available = False;
  199.   nmb->header.nm_flags.trunc = False;
  200.   nmb->header.nm_flags.authoritative = False;
  201.   nmb->header.nm_flags.bcast = bcast;
  202.   
  203.   nmb->header.rcode = 0;
  204.   nmb->header.qdcount = 1;
  205.   nmb->header.ancount = 0;
  206.   nmb->header.nscount = 0;
  207.  
  208.   nmb->question.question_name = *nmbname;
  209.   nmb->question.question_type = QUESTION_TYPE_NB_QUERY;
  210.   nmb->question.question_class = QUESTION_CLASS_IN;
  211.  
  212.   packet->ip = to_ip;
  213.   packet->port = NMB_PORT;
  214.   packet->fd = ClientNMB;
  215.   packet->timestamp = time(NULL);
  216.   packet->packet_type = NMB_PACKET;
  217.   packet->locked = False;
  218.   
  219.   return packet; /* Caller must free. */
  220. }
  221.  
  222. /***************************************************************************
  223.  Sets up the common elements of register, refresh or release packet.
  224. **************************************************************************/
  225.  
  226. static BOOL create_and_init_additional_record(struct packet_struct *packet,
  227.                                                      uint16 nb_flags,
  228.                                                      struct in_addr *register_ip)
  229. {
  230.   struct nmb_packet *nmb = &packet->packet.nmb;
  231.  
  232.   if((nmb->additional = (struct res_rec *)malloc(sizeof(struct res_rec))) == NULL)
  233.   {
  234.     DEBUG(0,("initiate_name_register_packet: malloc fail for additional record.\n"));
  235.     return False;
  236.   }
  237.  
  238.   bzero((char *)nmb->additional,sizeof(struct res_rec));
  239.  
  240.   nmb->additional->rr_name  = nmb->question.question_name;
  241.   nmb->additional->rr_type  = RR_TYPE_NB;
  242.   nmb->additional->rr_class = RR_CLASS_IN;
  243.  
  244.   nmb->additional->ttl = lp_max_ttl();
  245.  
  246.   nmb->additional->rdlength = 6;
  247.  
  248.   set_nb_flags(nmb->additional->rdata,nb_flags);
  249.  
  250.   /* Set the address for the name we are registering. */
  251.   putip(&nmb->additional->rdata[2], register_ip);
  252.  
  253.   /* Ensure that we send out the file descriptor to give us the
  254.      the specific source address we are registering as our
  255.      IP source address. */
  256.  
  257.   packet->fd = find_subnet_fd_for_address( *register_ip );
  258.  
  259.   return True;
  260. }
  261.  
  262. /***************************************************************************
  263.  Sends out a name query.
  264. **************************************************************************/
  265.  
  266. static BOOL initiate_name_query_packet( struct packet_struct *packet)
  267. {
  268.   struct nmb_packet *nmb = NULL;
  269.  
  270.   nmb = &packet->packet.nmb;
  271.  
  272.   nmb->header.opcode = NMB_NAME_QUERY_OPCODE;
  273.   nmb->header.arcount = 0;
  274.  
  275.   nmb->header.nm_flags.recursion_desired = True;
  276.  
  277.   DEBUG(4,("initiate_name_query_packet: sending query for name %s (bcast=%s) to IP %s\n",
  278.        namestr(&nmb->question.question_name), 
  279.            BOOLSTR(nmb->header.nm_flags.bcast), inet_ntoa(packet->ip)));
  280.  
  281.   return send_netbios_packet( packet );
  282. }
  283.  
  284. /***************************************************************************
  285.  Sends out a name query - from a WINS server. 
  286. **************************************************************************/
  287.  
  288. static BOOL initiate_name_query_packet_from_wins_server( struct packet_struct *packet)
  289. {   
  290.   struct nmb_packet *nmb = NULL;
  291.   
  292.   nmb = &packet->packet.nmb;
  293.  
  294.   nmb->header.opcode = NMB_NAME_QUERY_OPCODE;
  295.   nmb->header.arcount = 0;
  296.     
  297.   nmb->header.nm_flags.recursion_desired = False;
  298.   
  299.   DEBUG(4,("initiate_name_query_packet_from_wins_server: sending query for name %s (bcast=%s) to IP %s\n",
  300.            namestr(&nmb->question.question_name),
  301.            BOOLSTR(nmb->header.nm_flags.bcast), inet_ntoa(packet->ip)));
  302.     
  303.   return send_netbios_packet( packet );
  304. } 
  305.  
  306. /***************************************************************************
  307.  Sends out a name register.
  308. **************************************************************************/
  309.  
  310. static BOOL initiate_name_register_packet( struct packet_struct *packet,
  311.                                     uint16 nb_flags, struct in_addr *register_ip)
  312. {
  313.   struct nmb_packet *nmb = &packet->packet.nmb;
  314.  
  315.   nmb->header.opcode = NMB_NAME_REG_OPCODE;
  316.   nmb->header.arcount = 1;
  317.  
  318.   nmb->header.nm_flags.recursion_desired = True;
  319.  
  320.   if(create_and_init_additional_record(packet, nb_flags, register_ip) == False)
  321.     return False;
  322.  
  323.   DEBUG(4,("initiate_name_register_packet: sending registration for name %s (bcast=%s) to IP %s\n",
  324.        namestr(&nmb->additional->rr_name),
  325.            BOOLSTR(nmb->header.nm_flags.bcast), inet_ntoa(packet->ip)));
  326.  
  327.   return send_netbios_packet( packet );
  328. }
  329.  
  330. /***************************************************************************
  331.  Sends out a multihomed name register.
  332. **************************************************************************/
  333.  
  334. static BOOL initiate_multihomed_name_register_packet( struct packet_struct *packet,
  335.                                     uint16 nb_flags, struct in_addr *register_ip)
  336. {
  337.   struct nmb_packet *nmb = &packet->packet.nmb;
  338.   fstring second_ip_buf;
  339.  
  340.   fstrcpy(second_ip_buf, inet_ntoa(packet->ip));
  341.  
  342.   nmb->header.opcode = NMB_NAME_MULTIHOMED_REG_OPCODE;
  343.   nmb->header.arcount = 1;
  344.  
  345.   nmb->header.nm_flags.recursion_desired = True;
  346.  
  347.   if(create_and_init_additional_record(packet, nb_flags, register_ip) == False)
  348.     return False;
  349.  
  350.   DEBUG(4,("initiate_multihomed_name_register_packet: sending registration \
  351. for name %s IP %s (bcast=%s) to IP %s\n",
  352.        namestr(&nmb->additional->rr_name), inet_ntoa(*register_ip),
  353.            BOOLSTR(nmb->header.nm_flags.bcast), second_ip_buf ));
  354.  
  355.   return send_netbios_packet( packet );
  356. } 
  357.  
  358. /***************************************************************************
  359.  Sends out a name refresh.
  360. **************************************************************************/
  361.  
  362. static BOOL initiate_name_refresh_packet( struct packet_struct *packet,
  363.                                    uint16 nb_flags, struct in_addr *refresh_ip)
  364. {
  365.   struct nmb_packet *nmb = &packet->packet.nmb;
  366.  
  367.   nmb->header.opcode = NMB_NAME_REFRESH_OPCODE_8;
  368.   nmb->header.arcount = 1;
  369.  
  370.   nmb->header.nm_flags.recursion_desired = False;
  371.  
  372.   if(create_and_init_additional_record(packet, nb_flags, refresh_ip) == False)
  373.     return False;
  374.  
  375.   DEBUG(4,("initiate_name_refresh_packet: sending refresh for name %s (bcast=%s) to IP %s\n",
  376.        namestr(&nmb->additional->rr_name),
  377.            BOOLSTR(nmb->header.nm_flags.bcast), inet_ntoa(packet->ip)));
  378.  
  379.   return send_netbios_packet( packet );
  380. } 
  381.  
  382. /***************************************************************************
  383.  Sends out a name release.
  384. **************************************************************************/
  385.  
  386. static BOOL initiate_name_release_packet( struct packet_struct *packet,
  387.                                    uint16 nb_flags, struct in_addr *release_ip)
  388. {
  389.   struct nmb_packet *nmb = &packet->packet.nmb;
  390.  
  391.   nmb->header.opcode = NMB_NAME_RELEASE_OPCODE;
  392.   nmb->header.arcount = 1;
  393.  
  394.   nmb->header.nm_flags.recursion_desired = False;
  395.  
  396.   if(create_and_init_additional_record(packet, nb_flags, release_ip) == False)
  397.     return False;
  398.  
  399.   DEBUG(4,("initiate_name_release_packet: sending release for name %s (bcast=%s) to IP %s\n",
  400.        namestr(&nmb->additional->rr_name),
  401.            BOOLSTR(nmb->header.nm_flags.bcast), inet_ntoa(packet->ip)));
  402.  
  403.   return send_netbios_packet( packet );
  404. } 
  405.  
  406. /***************************************************************************
  407.  Sends out a node status.
  408. **************************************************************************/
  409.  
  410. static BOOL initiate_node_status_packet( struct packet_struct *packet )
  411. {
  412.   struct nmb_packet *nmb = &packet->packet.nmb;
  413.  
  414.   nmb->header.opcode = NMB_NAME_QUERY_OPCODE;
  415.   nmb->header.arcount = 0;
  416.  
  417.   nmb->header.nm_flags.recursion_desired = False;
  418.  
  419.   nmb->question.question_type = QUESTION_TYPE_NB_STATUS;
  420.  
  421.   DEBUG(4,("initiate_node_status_packet: sending node status request for name %s to IP %s\n",
  422.        namestr(&nmb->question.question_name),
  423.            inet_ntoa(packet->ip)));
  424.  
  425.   return send_netbios_packet( packet );
  426. }
  427.  
  428. /****************************************************************************
  429.   Simplification functions for queuing standard packets.
  430.   These should be the only publicly callable functions for sending
  431.   out packets.
  432. ****************************************************************************/
  433.  
  434. /****************************************************************************
  435.  Assertion - we should never be sending nmbd packets on the remote
  436.  broadcast subnet.
  437. ****************************************************************************/
  438.  
  439. static BOOL assert_check_subnet(struct subnet_record *subrec)
  440. {
  441.   if( subrec == remote_broadcast_subnet)
  442.   {
  443.     DEBUG(0,("assert_check_subnet: Attempt to send packet on remote broadcast subnet. \
  444. This is a bug.\n"));
  445.     return True;
  446.   }
  447.   return False;
  448. }
  449.  
  450. /****************************************************************************
  451.  Queue a register name packet to the broadcast address of a subnet.
  452. ****************************************************************************/
  453.  
  454. struct response_record *queue_register_name( struct subnet_record *subrec,
  455.                           response_function resp_fn,
  456.                           timeout_response_function timeout_fn,
  457.                           register_name_success_function success_fn,
  458.                           register_name_fail_function fail_fn,
  459.                           struct userdata_struct *userdata,
  460.                           struct nmb_name *nmbname,
  461.                           uint16 nb_flags)
  462. {
  463.   struct packet_struct *p;
  464.   struct response_record *rrec;
  465.   BOOL bcast = (subrec == unicast_subnet) ? False : True;
  466.  
  467.   if(assert_check_subnet(subrec))
  468.     return NULL;
  469.  
  470.   if(( p = create_and_init_netbios_packet(nmbname, bcast, 
  471.                      subrec->bcast_ip)) == NULL)
  472.     return NULL;
  473.  
  474.   if(initiate_name_register_packet( p, nb_flags, 
  475.                                     iface_ip(subrec->bcast_ip)) == False)
  476.   {
  477.     p->locked = False;
  478.     free_packet(p);
  479.     return NULL;
  480.   }
  481.  
  482.   if((rrec = make_response_record(subrec,           /* subnet record. */
  483.            p,                     /* packet we sent. */
  484.            resp_fn,               /* function to call on response. */
  485.            timeout_fn,            /* function to call on timeout. */
  486.            (success_function)success_fn,            /* function to call on operation success. */
  487.            (fail_function)fail_fn,               /* function to call on operation fail. */
  488.            userdata)) == NULL)  
  489.   {
  490.     p->locked = False;
  491.     free_packet(p);
  492.     return NULL;
  493.   }
  494.  
  495.   return rrec;
  496. }
  497.  
  498. /****************************************************************************
  499.  Queue a multihomed register name packet to the broadcast address of a subnet.
  500. ****************************************************************************/
  501.  
  502. struct response_record *queue_register_multihomed_name( struct subnet_record *subrec,
  503.                           response_function resp_fn,
  504.                           timeout_response_function timeout_fn,
  505.                           register_name_success_function success_fn,
  506.                           register_name_fail_function fail_fn,
  507.                           struct userdata_struct *userdata,
  508.                           struct nmb_name *nmbname,
  509.                           uint16 nb_flags,
  510.                           struct in_addr register_ip)
  511. {
  512.   struct packet_struct *p;
  513.   struct response_record *rrec;
  514.   BOOL bcast = False;
  515.   BOOL ret;
  516.      
  517.   /* Sanity check. */
  518.   if(subrec != unicast_subnet)
  519.   {
  520.     DEBUG(0,("queue_register_multihomed_name: should only be done on \
  521. unicast subnet. subnet is %s\n.", subrec->subnet_name ));
  522.     return NULL;
  523.   }
  524.  
  525.   if(assert_check_subnet(subrec))
  526.     return NULL;
  527.      
  528.   if(( p = create_and_init_netbios_packet(nmbname, bcast,
  529.                              subrec->bcast_ip)) == NULL)
  530.     return NULL;
  531.  
  532.   if (nb_flags & NB_GROUP)
  533.     ret = initiate_name_register_packet( p, nb_flags, ®ister_ip);
  534.   else
  535.     ret = initiate_multihomed_name_register_packet( p, nb_flags, ®ister_ip);
  536.  
  537.   if(ret == False)
  538.   {  
  539.     p->locked = False;
  540.     free_packet(p);
  541.     return NULL;
  542.   }  
  543.   
  544.   if((rrec = make_response_record(subrec,    /* subnet record. */
  545.                 p,                     /* packet we sent. */
  546.                 resp_fn,               /* function to call on response. */
  547.                 timeout_fn,            /* function to call on timeout. */
  548.                 (success_function)success_fn,            /* function to call on operation success. */
  549.                 (fail_function)fail_fn,               /* function to call on operation fail. */
  550.                 userdata)) == NULL)
  551.   {  
  552.     p->locked = False;
  553.     free_packet(p);
  554.     return NULL;
  555.   }  
  556.   
  557.   return rrec;
  558. }
  559.  
  560. /****************************************************************************
  561.  Queue a release name packet to the broadcast address of a subnet.
  562. ****************************************************************************/
  563.  
  564. struct response_record *queue_release_name( struct subnet_record *subrec,
  565.                           response_function resp_fn,
  566.                           timeout_response_function timeout_fn,
  567.                           release_name_success_function success_fn,
  568.                           release_name_fail_function fail_fn,
  569.                           struct userdata_struct *userdata,
  570.                           struct nmb_name *nmbname,
  571.                           uint16 nb_flags,
  572.                           struct in_addr release_ip)
  573. {
  574.   BOOL bcast = (subrec == unicast_subnet) ? False : True;
  575.   struct packet_struct *p;
  576.   struct response_record *rrec;
  577.  
  578.   if(assert_check_subnet(subrec))
  579.     return NULL;
  580.  
  581.   if(( p = create_and_init_netbios_packet(nmbname, bcast, 
  582.                      subrec->bcast_ip)) == NULL)
  583.     return NULL;
  584.  
  585.   if(initiate_name_release_packet( p, nb_flags, &release_ip) == False)
  586.   {
  587.     p->locked = False;
  588.     free_packet(p);
  589.     return NULL;
  590.   }
  591.  
  592.   if((rrec = make_response_record(subrec,           /* subnet record. */
  593.                     p,                     /* packet we sent. */
  594.                     resp_fn,               /* function to call on response. */
  595.                     timeout_fn,            /* function to call on timeout. */
  596.                     (success_function)success_fn,            /* function to call on operation success. */
  597.                     (fail_function)fail_fn,               /* function to call on operation fail. */
  598.                     userdata)) == NULL)  
  599.   {
  600.     p->locked = False;
  601.     free_packet(p);
  602.     return NULL;
  603.   }
  604.  
  605.   /*
  606.    * For a broadcast release packet, only send once.
  607.    * This will cause us to remove the name asap. JRA.
  608.    */
  609.  
  610.   if(bcast)
  611.   {
  612.     rrec->repeat_count = 0;
  613.     rrec->repeat_time = 0;
  614.   }
  615.  
  616.   return rrec;
  617. }
  618.  
  619. /****************************************************************************
  620.  Queue a refresh name packet to the broadcast address of a subnet.
  621. ****************************************************************************/
  622.  
  623. struct response_record *queue_refresh_name( struct subnet_record *subrec,
  624.                           response_function resp_fn,
  625.                           timeout_response_function timeout_fn,
  626.                           refresh_name_success_function success_fn,
  627.                           refresh_name_fail_function fail_fn,
  628.                           struct userdata_struct *userdata,
  629.                           struct name_record *namerec,
  630.                           struct in_addr refresh_ip)
  631. {
  632.   BOOL bcast = (subrec == unicast_subnet) ? False : True;
  633.   struct packet_struct *p;
  634.   struct response_record *rrec;
  635.  
  636.   if(assert_check_subnet(subrec))
  637.     return NULL;
  638.  
  639.   if(( p = create_and_init_netbios_packet(&namerec->name, bcast,
  640.                      subrec->bcast_ip)) == NULL)
  641.     return NULL;
  642.  
  643.   if(initiate_name_refresh_packet( p, namerec->nb_flags, &refresh_ip) == False)
  644.   {
  645.     p->locked = False;
  646.     free_packet(p);
  647.     return NULL;
  648.   }
  649.  
  650.   if((rrec = make_response_record(subrec,           /* subnet record. */
  651.                   p,                     /* packet we sent. */
  652.                   resp_fn,               /* function to call on response. */
  653.                   timeout_fn,            /* function to call on timeout. */
  654.                   (success_function)success_fn,            /* function to call on operation success. */
  655.                   (fail_function)fail_fn,               /* function to call on operation fail. */
  656.                   userdata)) == NULL)
  657.   {
  658.     p->locked = False;
  659.     free_packet(p);
  660.     return NULL;
  661.   }
  662.   
  663.   return rrec;
  664. }
  665.  
  666. /****************************************************************************
  667.  Queue a query name packet to the broadcast address of a subnet.
  668. ****************************************************************************/
  669.  
  670. struct response_record *queue_query_name( struct subnet_record *subrec,
  671.                           response_function resp_fn,
  672.                           timeout_response_function timeout_fn,
  673.                           query_name_success_function success_fn,
  674.                           query_name_fail_function fail_fn,
  675.                           struct userdata_struct *userdata,
  676.                           struct nmb_name *nmbname)
  677. {
  678.   struct packet_struct *p;
  679.   struct response_record *rrec;
  680.   BOOL bcast = True;
  681.  
  682.   if ((subrec == unicast_subnet) || (subrec == wins_server_subnet))
  683.     bcast = False;
  684.  
  685.   if(assert_check_subnet(subrec))
  686.     return NULL;
  687.  
  688.   if(( p = create_and_init_netbios_packet(nmbname, bcast,
  689.                      subrec->bcast_ip)) == NULL)
  690.     return NULL;
  691.  
  692.   if(initiate_name_query_packet( p ) == False)
  693.   {
  694.     p->locked = False;
  695.     free_packet(p);
  696.     return NULL;
  697.   }
  698.  
  699.   if((rrec = make_response_record(subrec,           /* subnet record. */
  700.                p,                     /* packet we sent. */
  701.                resp_fn,               /* function to call on response. */
  702.                timeout_fn,            /* function to call on timeout. */
  703.                (success_function)success_fn,            /* function to call on operation success. */
  704.                (fail_function)fail_fn,               /* function to call on operation fail. */
  705.                userdata)) == NULL)
  706.   {
  707.     p->locked = False;
  708.     free_packet(p);
  709.     return NULL;
  710.   }
  711.  
  712.   return rrec;
  713. }
  714.  
  715. /****************************************************************************
  716.  Queue a query name packet to a given address from the WINS subnet.
  717. ****************************************************************************/
  718.  
  719. struct response_record *queue_query_name_from_wins_server( struct in_addr to_ip,
  720.                           response_function resp_fn,
  721.                           timeout_response_function timeout_fn,
  722.                           query_name_success_function success_fn,
  723.                           query_name_fail_function fail_fn,
  724.                           struct userdata_struct *userdata,
  725.                           struct nmb_name *nmbname)
  726. {
  727.   struct packet_struct *p;
  728.   struct response_record *rrec;
  729.   BOOL bcast = False;
  730.  
  731.   if(( p = create_and_init_netbios_packet(nmbname, bcast, to_ip)) == NULL)
  732.     return NULL;
  733.  
  734.   if(initiate_name_query_packet_from_wins_server( p ) == False)
  735.   {
  736.     p->locked = False;
  737.     free_packet(p);
  738.     return NULL;
  739.   }
  740.  
  741.   if((rrec = make_response_record(wins_server_subnet,           /* subnet record. */
  742.                p,                     /* packet we sent. */
  743.                resp_fn,               /* function to call on response. */
  744.                timeout_fn,            /* function to call on timeout. */
  745.                (success_function)success_fn,            /* function to call on operation success. */
  746.                (fail_function)fail_fn,               /* function to call on operation fail. */
  747.                userdata)) == NULL)
  748.   {
  749.     p->locked = False;
  750.     free_packet(p);
  751.     return NULL;
  752.   }
  753.  
  754.   return rrec;
  755. }
  756.  
  757. /****************************************************************************
  758.  Queue a node status packet to a given name and address.
  759. ****************************************************************************/
  760.  
  761. struct response_record *queue_node_status( struct subnet_record *subrec,
  762.                           response_function resp_fn,
  763.                           timeout_response_function timeout_fn,
  764.                           node_status_success_function success_fn,
  765.                           node_status_fail_function fail_fn,
  766.                           struct userdata_struct *userdata,
  767.                           struct nmb_name *nmbname,
  768.                           struct in_addr send_ip)
  769. {
  770.   struct packet_struct *p;
  771.   struct response_record *rrec;
  772.   BOOL bcast = False;
  773.  
  774.   /* Sanity check. */
  775.   if(subrec != unicast_subnet)
  776.   {
  777.     DEBUG(0,("queue_register_multihomed_name: should only be done on \
  778. unicast subnet. subnet is %s\n.", subrec->subnet_name ));
  779.     return NULL;
  780.   }
  781.  
  782.   if(assert_check_subnet(subrec))
  783.     return NULL;
  784.  
  785.   if(( p = create_and_init_netbios_packet(nmbname, bcast,
  786.                              send_ip)) == NULL)
  787.     return NULL;
  788.  
  789.   if(initiate_node_status_packet(p) == False)
  790.   {
  791.     p->locked = False;
  792.     free_packet(p);
  793.     return NULL;
  794.   } 
  795.  
  796.   if((rrec = make_response_record(subrec,           /* subnet record. */
  797.                    p,                     /* packet we sent. */
  798.                    resp_fn,               /* function to call on response. */
  799.                    timeout_fn,            /* function to call on timeout. */
  800.                    (success_function)success_fn,            /* function to call on operation success. */
  801.                    (fail_function)fail_fn,               /* function to call on operation fail. */
  802.                    userdata)) == NULL)
  803.   {
  804.     p->locked = False;
  805.     free_packet(p);
  806.     return NULL;
  807.   }
  808.  
  809.   return rrec;
  810. }
  811.  
  812. /****************************************************************************
  813.   Reply to a netbios name packet.  see rfc1002.txt
  814. ****************************************************************************/
  815.  
  816. void reply_netbios_packet(struct packet_struct *orig_packet,
  817.                           int rcode, enum netbios_reply_type_code rcv_code, int opcode,
  818.                           int ttl, char *data,int len)
  819. {
  820.   struct packet_struct packet;
  821.   struct nmb_packet *nmb = NULL;
  822.   struct res_rec answers;
  823.   struct nmb_packet *orig_nmb = &orig_packet->packet.nmb;
  824.   BOOL loopback_this_packet = False;
  825.   char *packet_type = "unknown";
  826.   
  827.   /* Check if we are sending to or from ourselves. */
  828.   if(ismyip(orig_packet->ip) && (orig_packet->port == global_nmb_port))
  829.     loopback_this_packet = True;
  830.   
  831.   nmb = &packet.packet.nmb;
  832.  
  833.   /* Do a partial copy of the packet. We clear the locked flag and
  834.      the resource record pointers. */
  835.   packet = *orig_packet;   /* Full structure copy. */
  836.   packet.locked = False;
  837.   nmb->answers = NULL;
  838.   nmb->nsrecs = NULL;
  839.   nmb->additional = NULL;
  840.  
  841.   switch (rcv_code)
  842.   {
  843.     case NMB_STATUS:
  844.     {
  845.       packet_type = "nmb_status";
  846.       nmb->header.nm_flags.recursion_desired = False;
  847.       nmb->header.nm_flags.recursion_available = False;
  848.       break;
  849.     }
  850.     case NMB_QUERY:
  851.     {
  852.       packet_type = "nmb_query";
  853.       nmb->header.nm_flags.recursion_desired = True;
  854.       nmb->header.nm_flags.recursion_available = True;
  855.       break;
  856.     }
  857.     case NMB_REG:
  858.     case NMB_REG_REFRESH:
  859.     {
  860.       packet_type = "nmb_reg";
  861.       nmb->header.nm_flags.recursion_desired = True;
  862.       nmb->header.nm_flags.recursion_available = True;
  863.       break;
  864.     }
  865.     case NMB_REL:
  866.     {
  867.       packet_type = "nmb_rel";
  868.       nmb->header.nm_flags.recursion_desired = False;
  869.       nmb->header.nm_flags.recursion_available = False;
  870.       break;
  871.     }
  872.     case NMB_WAIT_ACK:
  873.     {
  874.       packet_type = "nmb_wack";
  875.       nmb->header.nm_flags.recursion_desired = False;
  876.       nmb->header.nm_flags.recursion_available = False;
  877.       break;
  878.     }
  879.     case WINS_REG:
  880.     {
  881.       packet_type = "wins_reg";
  882.       nmb->header.nm_flags.recursion_desired = True;
  883.       nmb->header.nm_flags.recursion_available = True;
  884.       break;
  885.     }
  886.     case WINS_QUERY:
  887.     {
  888.       packet_type = "wins_query";
  889.       nmb->header.nm_flags.recursion_desired = True;
  890.       nmb->header.nm_flags.recursion_available = True;
  891.       break;
  892.     }
  893.  
  894.     default:
  895.     {
  896.       DEBUG(0,("reply_netbios_packet: Unknown packet type: %s %s to ip %s\n",
  897.                 packet_type, namestr(&orig_nmb->question.question_name),
  898.                     inet_ntoa(packet.ip)));
  899.  
  900.       return;
  901.     }
  902.   }
  903.  
  904.   DEBUG(4,("reply_netbios_packet: sending a reply of packet type: %s %s to ip %s \
  905. for id %hu\n",
  906.        packet_type, namestr(&orig_nmb->question.question_name),
  907.            inet_ntoa(packet.ip), orig_nmb->header.name_trn_id));
  908.  
  909.   nmb->header.name_trn_id = orig_nmb->header.name_trn_id;
  910.   nmb->header.opcode = opcode;
  911.   nmb->header.response = True;
  912.   nmb->header.nm_flags.bcast = False;
  913.   nmb->header.nm_flags.trunc = False;
  914.   nmb->header.nm_flags.authoritative = True;
  915.   
  916.   nmb->header.rcode = rcode;
  917.   nmb->header.qdcount = 0;
  918.   nmb->header.ancount = 1;
  919.   nmb->header.nscount = 0;
  920.   nmb->header.arcount = 0;
  921.   
  922.   bzero((char*)&nmb->question,sizeof(nmb->question));
  923.   
  924.   nmb->answers = &answers;
  925.   bzero((char*)nmb->answers,sizeof(*nmb->answers));
  926.   
  927.   nmb->answers->rr_name  = orig_nmb->question.question_name;
  928.   nmb->answers->rr_type  = orig_nmb->question.question_type;
  929.   nmb->answers->rr_class = orig_nmb->question.question_class;
  930.   nmb->answers->ttl      = ttl;
  931.   
  932.   if (data && len)
  933.   {
  934.     nmb->answers->rdlength = len;
  935.     memcpy(nmb->answers->rdata, data, len);
  936.   }
  937.   
  938.   packet.packet_type = NMB_PACKET;
  939.   /* Ensure we send out on the same fd that the original
  940.      packet came in on to give the correct source IP address. */
  941.   packet.fd = orig_packet->fd;
  942.   packet.timestamp = time(NULL);
  943.  
  944.   debug_nmb_packet(&packet);
  945.   
  946.   if(loopback_this_packet)
  947.   {
  948.     struct packet_struct *lo_packet;
  949.     DEBUG(5,("reply_netbios_packet: sending packet to ourselves.\n"));
  950.     if((lo_packet = copy_packet(&packet)) == NULL)
  951.       return;
  952.     queue_packet(lo_packet);
  953.   }
  954.   else if (!send_packet(&packet)) 
  955.   {
  956.     DEBUG(0,("reply_netbios_packet: send_packet to IP %s port %d failed\n",
  957.                  inet_ntoa(packet.ip),packet.port));
  958.   }
  959. }
  960.  
  961. /*******************************************************************
  962.   Queue a packet into a packet queue
  963. ******************************************************************/
  964.  
  965. void queue_packet(struct packet_struct *packet)
  966. {
  967.   struct packet_struct *p;
  968.  
  969.   if (!packet_queue) 
  970.   {
  971.     packet->prev = NULL;
  972.     packet->next = NULL;
  973.     packet_queue = packet;
  974.     return;
  975.   }
  976.   
  977.   /* find the bottom */
  978.   for (p=packet_queue;p->next;p=p->next) 
  979.     ;
  980.  
  981.   p->next = packet;
  982.   packet->next = NULL;
  983.   packet->prev = p;
  984. }
  985.  
  986. /****************************************************************************
  987.  Try and find a matching subnet record for a datagram port 138 packet.
  988. ****************************************************************************/
  989.  
  990. static struct subnet_record *find_subnet_for_dgram_browse_packet(struct packet_struct *p)
  991. {
  992.   struct subnet_record *subrec;
  993.  
  994.   /* Go through all the broadcast subnets and see if the mask matches. */
  995.   for (subrec = FIRST_SUBNET; subrec ; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  996.   {
  997.     if(same_net(p->ip, subrec->bcast_ip, subrec->mask_ip))
  998.       return subrec;
  999.   }
  1000.  
  1001.   /* If the subnet record is the remote announce broadcast subnet,
  1002.      hack it here to be the first subnet. This is really gross and
  1003.      is needed due to people turning on port 137/138 broadcast
  1004.      forwarding on their routers. May fire and brimstone rain
  1005.      down upon them...
  1006.    */
  1007.  
  1008.   return FIRST_SUBNET;
  1009. }
  1010.  
  1011. /****************************************************************************
  1012. Dispatch a browse frame from port 138 to the correct processing function.
  1013. ****************************************************************************/
  1014.  
  1015. void process_browse_packet(struct packet_struct *p, char *buf,int len)
  1016. {
  1017.   struct dgram_packet *dgram = &p->packet.dgram;
  1018.   int command = CVAL(buf,0);
  1019.   struct subnet_record *subrec = find_subnet_for_dgram_browse_packet(p);
  1020.  
  1021.   /* Drop the packet if it's a different NetBIOS scope, or
  1022.      the source is from one of our names. */
  1023.  
  1024.   if (!strequal(dgram->dest_name.scope,scope ))
  1025.   {
  1026.     DEBUG(7,("process_browse_packet: Discarding datagram from IP %s. Scope (%s) \
  1027. mismatch with our scope (%s).\n", inet_ntoa(p->ip), dgram->dest_name.scope, scope));
  1028.     return;
  1029.   }
  1030.  
  1031.   if (is_myname(dgram->source_name.name))
  1032.   {
  1033.     DEBUG(0,("process_browse_packet: Discarding datagram from IP %s. Source name \
  1034. %s is one of our names !\n", inet_ntoa(p->ip), namestr(&dgram->source_name)));
  1035.     return;
  1036.   }
  1037.  
  1038.   switch (command)
  1039.   {
  1040.     case ANN_HostAnnouncement:
  1041.     {
  1042.       debug_browse_data(buf, len);
  1043.       process_host_announce(subrec, p, buf+1);
  1044.       break;
  1045.     }
  1046.     case ANN_DomainAnnouncement:
  1047.     {
  1048.       debug_browse_data(buf, len);
  1049.       process_workgroup_announce(subrec, p, buf+1);
  1050.       break;
  1051.     }
  1052.     case ANN_LocalMasterAnnouncement:
  1053.     {
  1054.       debug_browse_data(buf, len);
  1055.       process_local_master_announce(subrec, p, buf+1);
  1056.       break;
  1057.     }
  1058.     case ANN_AnnouncementRequest:
  1059.     {
  1060.       debug_browse_data(buf, len);
  1061.       process_announce_request(subrec, p, buf+1);
  1062.       break;
  1063.     }
  1064.     case ANN_Election:
  1065.     {
  1066.       debug_browse_data(buf, len);
  1067.       process_election(subrec, p, buf+1);
  1068.       break;
  1069.     }
  1070.     case ANN_GetBackupListReq:
  1071.     {
  1072.       debug_browse_data(buf, len);
  1073.  
  1074.       /* This is one occasion where we change a subnet that is
  1075.         given to us. If the packet was sent to WORKGROUP<1b> instead
  1076.         of WORKGROUP<1d> then it was unicast to us a domain master
  1077.         browser. Change subrec to unicast.
  1078.       */
  1079.       if(dgram->dest_name.name_type == 0x1b)
  1080.         subrec = unicast_subnet;
  1081.  
  1082.       process_get_backup_list_request(subrec, p, buf+1);
  1083.       break;
  1084.     }
  1085.     case ANN_GetBackupListResp:
  1086.     {
  1087.       debug_browse_data(buf, len);
  1088.       /* We never send ANN_GetBackupListReq so we
  1089.          should never get these. */
  1090.       DEBUG(0,("process_browse_packet: Discarding GetBackupListResponse \
  1091. packet from %s IP %s\n", namestr(&dgram->source_name), inet_ntoa(p->ip)));
  1092.       break;
  1093.     }
  1094.     case ANN_ResetBrowserState:
  1095.     {
  1096.       debug_browse_data(buf, len);
  1097.       process_reset_browser(subrec, p, buf+1);
  1098.       break;
  1099.     }
  1100.     case ANN_MasterAnnouncement:
  1101.     {
  1102.       /* Master browser datagrams must be processed
  1103.          on the unicast subnet. */
  1104.       subrec = unicast_subnet;
  1105.  
  1106.       debug_browse_data(buf, len);
  1107.       process_master_browser_announce(subrec, p, buf+1);
  1108.       break;
  1109.     }
  1110.     case ANN_BecomeBackup:
  1111.     {
  1112.       /* 
  1113.        * We don't currently implement this. Log it just in case.
  1114.        */
  1115.       debug_browse_data(buf, len);
  1116.       DEBUG(10,("process_browse_packet: On subnet %s ignoring browse packet \
  1117. command ANN_BecomeBackup from %s IP %s to %s\n",
  1118.             subrec->subnet_name, namestr(&dgram->source_name),
  1119.             inet_ntoa(p->ip), namestr(&dgram->dest_name)));
  1120.       break;
  1121.     }
  1122.     default:
  1123.     {
  1124.       debug_browse_data(buf, len);
  1125.       DEBUG(0,("process_browse_packet: On subnet %s ignoring browse packet \
  1126. command code %d from %s IP %s to %s\n", 
  1127.             subrec->subnet_name, command, namestr(&dgram->source_name),
  1128.             inet_ntoa(p->ip), namestr(&dgram->dest_name)));
  1129.     }
  1130.   } 
  1131. }
  1132.  
  1133. /****************************************************************************
  1134.  Dispatch a LanMan browse frame from port 138 to the correct processing function.
  1135. ****************************************************************************/
  1136.  
  1137. void process_lanman_packet(struct packet_struct *p, char *buf,int len)
  1138. {
  1139.   struct dgram_packet *dgram = &p->packet.dgram;
  1140.   int command = SVAL(buf,0);
  1141.   struct subnet_record *subrec = find_subnet_for_dgram_browse_packet(p);
  1142.  
  1143.   /* Drop the packet if it's a different NetBIOS scope, or
  1144.      the source is from one of our names. */
  1145.  
  1146.   if (!strequal(dgram->dest_name.scope,scope ))
  1147.   {
  1148.     DEBUG(7,("process_lanman_packet: Discarding datagram from IP %s. Scope (%s) \
  1149. mismatch with our scope (%s).\n", inet_ntoa(p->ip), dgram->dest_name.scope, scope));
  1150.     return;
  1151.   }
  1152.  
  1153.   if (is_myname(dgram->source_name.name))
  1154.   {
  1155.     DEBUG(0,("process_lanman_packet: Discarding datagram from IP %s. Source name \
  1156. %s is one of our names !\n", inet_ntoa(p->ip), namestr(&dgram->source_name)));
  1157.     return;
  1158.   }
  1159.  
  1160.   switch (command)
  1161.   {
  1162.     case ANN_HostAnnouncement:
  1163.     {
  1164.       debug_browse_data(buf, len);
  1165.       process_lm_host_announce(subrec, p, buf+1);
  1166.       break;
  1167.     }
  1168.     case ANN_AnnouncementRequest:
  1169.     {
  1170.       process_lm_announce_request(subrec, p, buf+1);
  1171.       break;
  1172.     }
  1173.     default:
  1174.     {
  1175.       DEBUG(0,("process_lanman_packet: On subnet %s ignoring browse packet \
  1176. command code %d from %s IP %s to %s\n",
  1177.             subrec->subnet_name, command, namestr(&dgram->source_name),
  1178.             inet_ntoa(p->ip), namestr(&dgram->dest_name)));
  1179.     }
  1180.   }
  1181. }
  1182.  
  1183. /****************************************************************************
  1184.   Determine if a packet is for us on port 138. Note that to have any chance of
  1185.   being efficient we need to drop as many packets as possible at this
  1186.   stage as subsequent processing is expensive. 
  1187. ****************************************************************************/
  1188.  
  1189. static BOOL listening(struct packet_struct *p,struct nmb_name *nbname)
  1190. {
  1191.   struct subnet_record *subrec = NULL;
  1192.  
  1193.   for (subrec = FIRST_SUBNET; subrec ; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  1194.   {
  1195.     if(same_net(p->ip, subrec->bcast_ip, subrec->mask_ip))
  1196.       break;
  1197.   }
  1198.  
  1199.   if(subrec == NULL)
  1200.     subrec = unicast_subnet;
  1201.  
  1202.   return (find_name_on_subnet(subrec, nbname, FIND_SELF_NAME) != NULL);
  1203. }
  1204.  
  1205. /****************************************************************************
  1206.   Process udp 138 datagrams
  1207. ****************************************************************************/
  1208.  
  1209. static void process_dgram(struct packet_struct *p)
  1210. {
  1211.   char *buf;
  1212.   char *buf2;
  1213.   int len;
  1214.   struct dgram_packet *dgram = &p->packet.dgram;
  1215.  
  1216.   /* If we aren't listening to the destination name then ignore the packet */
  1217.   if (!listening(p,&dgram->dest_name))
  1218.   {
  1219.     DEBUG(5,("process_dgram: ignoring dgram packet sent to name %s from %s\n",
  1220.            namestr(&dgram->dest_name), inet_ntoa(p->ip)));
  1221.     return;
  1222.   }
  1223.  
  1224.   if (dgram->header.msg_type != 0x10 &&
  1225.       dgram->header.msg_type != 0x11 &&
  1226.       dgram->header.msg_type != 0x12) 
  1227.   {
  1228.     /* Don't process error packets etc yet */
  1229.     DEBUG(5,("process_dgram: ignoring dgram packet sent to name %s from IP %s as it is \
  1230.            an error packet of type %x\n",
  1231.            namestr(&dgram->dest_name), inet_ntoa(p->ip), dgram->header.msg_type));
  1232.     return;
  1233.   }
  1234.  
  1235.   buf = &dgram->data[0];
  1236.   buf -= 4; /* XXXX for the pseudo tcp length - 
  1237.            someday I need to get rid of this */
  1238.  
  1239.   if (CVAL(buf,smb_com) != SMBtrans)
  1240.     return;
  1241.  
  1242.   len = SVAL(buf,smb_vwv11);
  1243.   buf2 = smb_base(buf) + SVAL(buf,smb_vwv12);
  1244.  
  1245.   DEBUG(4,("process_dgram: datagram from %s to %s IP %s for %s of type %d len=%d\n",
  1246.        namestr(&dgram->source_name),namestr(&dgram->dest_name),
  1247.        inet_ntoa(p->ip), smb_buf(buf),CVAL(buf2,0),len));
  1248.  
  1249.  
  1250.   if (len <= 0)
  1251.     return;
  1252.  
  1253.   /* Datagram packet received for the browser mailslot */
  1254.   if (strequal(smb_buf(buf),BROWSE_MAILSLOT))
  1255.   {
  1256.     process_browse_packet(p,buf2,len);
  1257.     return;
  1258.   }
  1259.  
  1260.   /* Datagram packet received for the LAN Manager mailslot */
  1261.   if (strequal(smb_buf(buf),LANMAN_MAILSLOT)) {
  1262.     process_lanman_packet(p,buf2,len);
  1263.     return;
  1264.   }
  1265.  
  1266.   /* Datagram packet received for the domain logon mailslot */
  1267.   if (strequal(smb_buf(buf),NET_LOGON_MAILSLOT))
  1268.   {
  1269.     process_logon_packet(p,buf2,len,NET_LOGON_MAILSLOT);
  1270.     return;
  1271.   }
  1272.  
  1273.   /* Datagram packet received for the NT domain logon mailslot */
  1274.   if (strequal(smb_buf(buf),NT_LOGON_MAILSLOT))
  1275.   {
  1276.     process_logon_packet(p,buf2,len,NT_LOGON_MAILSLOT);
  1277.     return;
  1278.   }
  1279. }
  1280.  
  1281. /****************************************************************************
  1282.   Validate a response nmb packet.
  1283. ****************************************************************************/
  1284.  
  1285. BOOL validate_nmb_response_packet( struct nmb_packet *nmb )
  1286. {
  1287.   BOOL ignore = False;
  1288.  
  1289.   switch (nmb->header.opcode) 
  1290.   {
  1291.     case NMB_NAME_REG_OPCODE:
  1292.     case NMB_NAME_REFRESH_OPCODE_8: /* ambiguity in rfc1002 about which is correct. */
  1293.     case NMB_NAME_REFRESH_OPCODE_9: /* WinNT uses 8 by default. */
  1294.       if (nmb->header.ancount == 0)
  1295.       {
  1296.         DEBUG(0,("validate_nmb_response_packet: Bad REG/REFRESH Packet. "));
  1297.         ignore = True;
  1298.       }
  1299.       break;
  1300.  
  1301.     case NMB_NAME_QUERY_OPCODE:
  1302.       if ((nmb->header.ancount != 0) && (nmb->header.ancount != 1))
  1303.       {
  1304.         DEBUG(0,("validate_nmb_response_packet: Bad QUERY Packet. "));
  1305.         ignore = True;
  1306.       }
  1307.       break;
  1308.     case NMB_NAME_RELEASE_OPCODE:
  1309.       if (nmb->header.ancount == 0)
  1310.       {
  1311.         DEBUG(0,("validate_nmb_response_packet: Bad RELEASE Packet. "));
  1312.         ignore = True;
  1313.       }
  1314.       break;
  1315.     case NMB_WACK_OPCODE:
  1316.       /* Check WACK response here. */
  1317.       if (nmb->header.ancount != 1)
  1318.       {
  1319.         DEBUG(0,("validate_nmb_response_packet: Bad WACK Packet. "));
  1320.         ignore = True;
  1321.       }
  1322.       break;
  1323.     default:
  1324.       DEBUG(0,("validate_nmb_response_packet: Ignoring packet with unknown opcode %d.\n",
  1325.         nmb->header.opcode));
  1326.       return True;
  1327.   }
  1328.  
  1329.   if(ignore)
  1330.     DEBUG(0,("Ignoring response packet with opcode %d.\n", nmb->header.opcode));
  1331.  
  1332.   return ignore;
  1333. }
  1334.  
  1335. /****************************************************************************
  1336.   Validate a request nmb packet.
  1337. ****************************************************************************/
  1338.  
  1339. BOOL validate_nmb_packet( struct nmb_packet *nmb )
  1340. {
  1341.   BOOL ignore = False;
  1342.  
  1343.   switch (nmb->header.opcode) 
  1344.   {
  1345.     case NMB_NAME_REG_OPCODE:
  1346.     case NMB_NAME_REFRESH_OPCODE_8: /* ambiguity in rfc1002 about which is correct. */
  1347.     case NMB_NAME_REFRESH_OPCODE_9: /* WinNT uses 8 by default. */
  1348.     case NMB_NAME_MULTIHOMED_REG_OPCODE:
  1349.       if (nmb->header.qdcount==0 || nmb->header.arcount==0)
  1350.       {
  1351.         DEBUG(0,("validate_nmb_packet: Bad REG/REFRESH Packet. "));
  1352.         ignore = True;
  1353.       }
  1354.       break;
  1355.  
  1356.     case NMB_NAME_QUERY_OPCODE:
  1357.       if ((nmb->header.qdcount == 0) || 
  1358.          ((nmb->question.question_type != QUESTION_TYPE_NB_QUERY) &&
  1359.          (nmb->question.question_type != QUESTION_TYPE_NB_STATUS)))
  1360.       {
  1361.         DEBUG(0,("validate_nmb_packet: Bad QUERY Packet. "));
  1362.         ignore = True;
  1363.       }
  1364.       break;
  1365.  
  1366.     case NMB_NAME_RELEASE_OPCODE:
  1367.       if (nmb->header.qdcount==0 || nmb->header.arcount==0)
  1368.       {
  1369.         DEBUG(0,("validate_nmb_packet: Bad RELEASE Packet. "));
  1370.         ignore = True;
  1371.       }
  1372.       break;
  1373.     default:
  1374.       DEBUG(0,("validate_nmb_packet: Ignoring packet with unknown opcode %d.\n",
  1375.         nmb->header.opcode));
  1376.       return True;
  1377.   }
  1378.  
  1379.   if(ignore)
  1380.     DEBUG(0,("validate_nmb_packet: Ignoring request packet with opcode %d.\n", nmb->header.opcode));
  1381.  
  1382.   return ignore;
  1383. }
  1384.  
  1385. /****************************************************************************
  1386.   Find a subnet (and potentially a response record) for a packet.
  1387. ****************************************************************************/
  1388.  
  1389. static struct subnet_record *find_subnet_for_nmb_packet( struct packet_struct *p,
  1390.                                                          struct response_record **pprrec)
  1391. {
  1392.   struct nmb_packet *nmb = &p->packet.nmb;
  1393.   struct response_record *rrec = NULL;
  1394.   struct subnet_record *subrec = NULL;
  1395.  
  1396.   if(pprrec != NULL)
  1397.     *pprrec = NULL;
  1398.  
  1399.   if(nmb->header.response)
  1400.   {
  1401.     /* It's a response packet. Find a record for it or it's an error. */
  1402.  
  1403.     rrec = find_response_record( &subrec, nmb->header.name_trn_id);
  1404.     if(rrec == NULL)
  1405.     {
  1406.       DEBUG(0,("find_subnet_for_nmb_packet: response record not found for response id %hu\n",
  1407.                nmb->header.name_trn_id));
  1408.       return NULL;
  1409.     }
  1410.  
  1411.     if(subrec == NULL)
  1412.     {
  1413.       DEBUG(0,("find_subnet_for_nmb_packet: subnet record not found for response id %hu\n",
  1414.                nmb->header.name_trn_id));
  1415.       return NULL;
  1416.     }
  1417.  
  1418.     if(pprrec != NULL)
  1419.       *pprrec = rrec;
  1420.     return subrec;
  1421.   }
  1422.  
  1423.   /* Try and see what subnet this packet belongs to. */
  1424.  
  1425.   /* WINS server ? */
  1426.   if(packet_is_for_wins_server(p))
  1427.     return wins_server_subnet;
  1428.  
  1429.   /* If it wasn't a broadcast packet then send to the UNICAST subnet. */
  1430.   if(nmb->header.nm_flags.bcast == False)
  1431.     return unicast_subnet;
  1432.  
  1433.   /* Go through all the broadcast subnets and see if the mask matches. */
  1434.   for (subrec = FIRST_SUBNET; subrec ; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  1435.   {
  1436.     if(same_net(p->ip, subrec->bcast_ip, subrec->mask_ip))
  1437.       return subrec;
  1438.   }
  1439.  
  1440.   /* If none match it must have been a directed broadcast - assign
  1441.      the remote_broadcast_subnet. */
  1442.   return remote_broadcast_subnet;
  1443. }
  1444.  
  1445. /****************************************************************************
  1446.   Process a nmb request packet - validate the packet and route it.
  1447. ****************************************************************************/
  1448.  
  1449. static void process_nmb_request(struct packet_struct *p)
  1450. {
  1451.   struct nmb_packet *nmb = &p->packet.nmb;
  1452.   struct subnet_record *subrec = NULL;
  1453.  
  1454.   debug_nmb_packet(p);
  1455.  
  1456.   /* Ensure we have a good packet. */
  1457.   if(validate_nmb_packet(nmb))
  1458.     return;
  1459.  
  1460.   /* Allocate a subnet to this packet - if we cannot - fail. */
  1461.   if((subrec = find_subnet_for_nmb_packet(p, NULL))==NULL)
  1462.     return;
  1463.  
  1464.   switch (nmb->header.opcode) 
  1465.   {
  1466.     case NMB_NAME_REG_OPCODE:
  1467.       if(subrec == wins_server_subnet)
  1468.         wins_process_name_registration_request(subrec, p);
  1469.       else
  1470.         process_name_registration_request(subrec, p);
  1471.       break;
  1472.  
  1473.     case NMB_NAME_REFRESH_OPCODE_8: /* ambiguity in rfc1002 about which is correct. */
  1474.     case NMB_NAME_REFRESH_OPCODE_9:
  1475.       if(subrec == wins_server_subnet)
  1476.         wins_process_name_refresh_request(subrec, p);
  1477.       else
  1478.         process_name_refresh_request(subrec, p);
  1479.       break;
  1480.  
  1481.     case NMB_NAME_MULTIHOMED_REG_OPCODE:
  1482.       if(subrec == wins_server_subnet)
  1483.         wins_process_multihomed_name_registration_request(subrec, p);
  1484.       else
  1485.       {
  1486.         DEBUG(0,("process_nmb_request: Multihomed registration request must be \
  1487. directed at a WINS server.\n"));
  1488.       }
  1489.       break;
  1490.  
  1491.     case NMB_NAME_QUERY_OPCODE:
  1492.       switch (nmb->question.question_type)
  1493.       {
  1494.         case QUESTION_TYPE_NB_QUERY:
  1495.         {
  1496.           if(subrec == wins_server_subnet)
  1497.             wins_process_name_query_request(subrec, p);
  1498.           else
  1499.             process_name_query_request(subrec, p);
  1500.           break;
  1501.         }
  1502.         case QUESTION_TYPE_NB_STATUS:
  1503.         {
  1504.           if(subrec == wins_server_subnet)
  1505.           {
  1506.             DEBUG(0,("process_nmb_request: NB_STATUS request directed at WINS server is \
  1507. not allowed.\n"));
  1508.             break;
  1509.           }
  1510.           else
  1511.             process_node_status_request(subrec, p);
  1512.           break;
  1513.         }
  1514.       }
  1515.       break;
  1516.       
  1517.     case NMB_NAME_RELEASE_OPCODE:
  1518.       if(subrec == wins_server_subnet)
  1519.         wins_process_name_release_request(subrec, p);
  1520.       else
  1521.         process_name_release_request(subrec, p);
  1522.       break;
  1523.   }
  1524. }
  1525.  
  1526. /****************************************************************************
  1527.   Process a nmb response packet - validate the packet and route it.
  1528.   to either the WINS server or a normal response.
  1529. ****************************************************************************/
  1530.  
  1531. static void process_nmb_response(struct packet_struct *p)
  1532. {
  1533.   struct nmb_packet *nmb = &p->packet.nmb;
  1534.   struct subnet_record *subrec = NULL;
  1535.   struct response_record *rrec = NULL;
  1536.  
  1537.   debug_nmb_packet(p);
  1538.  
  1539.   if(validate_nmb_response_packet(nmb))
  1540.     return;
  1541.  
  1542.   if((subrec = find_subnet_for_nmb_packet(p, &rrec))==NULL)
  1543.     return;
  1544.  
  1545.   if(rrec == NULL)
  1546.   {
  1547.     DEBUG(0,("process_nmb_response: response packet received but no response record \
  1548. found for id = %hu. Ignoring packet.\n", nmb->header.name_trn_id));
  1549.     return;
  1550.   }
  1551.  
  1552.   /* Increment the number of responses received for this record. */
  1553.   rrec->num_msgs++;
  1554.   /* Ensure we don't re-send the request. */
  1555.   rrec->repeat_count = 0;
  1556.   
  1557.   /* Call the response received function for this packet. */
  1558.   (*rrec->resp_fn)(subrec, rrec, p);
  1559. }
  1560.  
  1561.  
  1562. /*******************************************************************
  1563.   Run elements off the packet queue till its empty
  1564. ******************************************************************/
  1565.  
  1566. void run_packet_queue(void)
  1567. {
  1568.   struct packet_struct *p;
  1569.  
  1570.   while ((p = packet_queue))
  1571.   {
  1572.     packet_queue = p->next;
  1573.     if (packet_queue)
  1574.       packet_queue->prev = NULL;
  1575.     p->next = p->prev = NULL;
  1576.  
  1577.     switch (p->packet_type)
  1578.     {
  1579.       case NMB_PACKET:
  1580.         if(p->packet.nmb.header.response)
  1581.           process_nmb_response(p);
  1582.         else
  1583.           process_nmb_request(p);
  1584.         break;
  1585.  
  1586.       case DGRAM_PACKET:
  1587.         process_dgram(p);
  1588.         break;
  1589.     }
  1590.     free_packet(p);
  1591.   }
  1592. } 
  1593.  
  1594. /*******************************************************************
  1595.  Retransmit or timeout elements from all the outgoing subnet response
  1596.  record queues. NOTE that this code must also check the WINS server
  1597.  subnet for response records to timeout as the WINS server code
  1598.  can send requests to check if a client still owns a name.
  1599.  (Patch from Andrey Alekseyev <fetch@muffin.arcadia.spb.ru>).
  1600. ******************************************************************/
  1601.  
  1602. void retransmit_or_expire_response_records(time_t t)
  1603. {
  1604.   struct subnet_record *subrec;
  1605.  
  1606.   for (subrec = FIRST_SUBNET; subrec; 
  1607.                subrec = get_next_subnet_maybe_unicast_or_wins_server(subrec))
  1608.   {
  1609.     struct response_record *rrec, *nextrrec;
  1610.  
  1611.     for (rrec = subrec->responselist; rrec; rrec = nextrrec)
  1612.     {
  1613.       nextrrec = rrec->next;
  1614.    
  1615.       if (rrec->repeat_time <= t) 
  1616.       {
  1617.         if (rrec->repeat_count > 0)
  1618.         {
  1619.           /* Resend while we have a non-zero repeat_count. */
  1620.           if(!send_packet(rrec->packet))
  1621.           {
  1622.             DEBUG(0,("retransmit_or_expire_response_records: Failed to resend packet id %hu \
  1623. to IP %s on subnet %s\n", rrec->response_id, inet_ntoa(rrec->packet->ip), 
  1624.                           subrec->subnet_name));
  1625.           }
  1626.           rrec->repeat_time += rrec->repeat_interval;
  1627.           rrec->repeat_count--;
  1628.         }
  1629.         else
  1630.         {
  1631.           DEBUG(4,("retransmit_or_expire_response_records: timeout for packet id %hu to IP %s \
  1632. on subnet %s\n", rrec->response_id, inet_ntoa(rrec->packet->ip), 
  1633.                  subrec->subnet_name));
  1634.  
  1635.           /* Call the timeout function. This will deal with removing the
  1636.              timed out packet. */
  1637.           if(rrec->timeout_fn)
  1638.             (*rrec->timeout_fn)(subrec, rrec);
  1639.           else
  1640.           {
  1641.             /* We must remove the record ourself if there is
  1642.                no timeout function. */
  1643.             remove_response_record(subrec, rrec);
  1644.           }
  1645.         } /* rrec->repeat_count > 0 */
  1646.       } /* rrec->repeat_time <= t */
  1647.     } /* end for rrec */
  1648.   } /* end for subnet */
  1649. }
  1650.  
  1651. /****************************************************************************
  1652.   Create an fd_set containing all the sockets in the subnet structures,
  1653.   plus the broadcast sockets.
  1654. ***************************************************************************/
  1655.  
  1656. static BOOL create_listen_fdset(fd_set **ppset, int **psock_array, int *listen_number)
  1657. {
  1658.   int *sock_array = NULL;
  1659.   struct subnet_record *subrec = NULL;
  1660.   int count = 0;
  1661.   int num = 0;
  1662.   fd_set *pset = (fd_set *)malloc(sizeof(fd_set));
  1663.  
  1664.   if(pset == NULL)
  1665.   {
  1666.     DEBUG(0,("create_listen_fdset: malloc fail !\n"));
  1667.     return True;
  1668.   }
  1669.  
  1670.   /* Check that we can add all the fd's we need. */
  1671.   for (subrec = FIRST_SUBNET; subrec; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  1672.     count++;
  1673.  
  1674.   if((count*2) + 2 > FD_SETSIZE)
  1675.   {
  1676.     DEBUG(0,("create_listen_fdset: Too many file descriptors needed (%d). We can \
  1677. only use %d.\n", (count*2) + 2, FD_SETSIZE));
  1678.     return True;
  1679.   }
  1680.  
  1681.   if((sock_array = (int *)malloc(((count*2) + 2)*sizeof(int))) == NULL)
  1682.   {
  1683.     DEBUG(0,("create_listen_fdset: malloc fail for socket array.\n"));
  1684.     return True;
  1685.   }
  1686.  
  1687.   FD_ZERO(pset);
  1688.  
  1689.   /* Add in the broadcast socket on 137. */
  1690.   FD_SET(ClientNMB,pset);
  1691.   sock_array[num++] = ClientNMB;
  1692.  
  1693.   /* Add in the 137 sockets on all the interfaces. */
  1694.   for (subrec = FIRST_SUBNET; subrec; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  1695.   {
  1696.     FD_SET(subrec->nmb_sock,pset);
  1697.     sock_array[num++] = subrec->nmb_sock;
  1698.   }
  1699.  
  1700.   /* Add in the broadcast socket on 138. */
  1701.   FD_SET(ClientDGRAM,pset);
  1702.   sock_array[num++] = ClientDGRAM;
  1703.  
  1704.   /* Add in the 138 sockets on all the interfaces. */
  1705.   for (subrec = FIRST_SUBNET; subrec; subrec = NEXT_SUBNET_EXCLUDING_UNICAST(subrec))
  1706.   {
  1707.     FD_SET(subrec->dgram_sock,pset);
  1708.     sock_array[num++] = subrec->dgram_sock;
  1709.   }
  1710.  
  1711.   *listen_number = (count*2) + 2;
  1712.   *ppset = pset;
  1713.   *psock_array = sock_array;
  1714.  
  1715.   return False;
  1716. }
  1717.  
  1718. /****************************************************************************
  1719.   Listens for NMB or DGRAM packets, and queues them.
  1720. ***************************************************************************/
  1721.  
  1722. BOOL listen_for_packets(BOOL run_election)
  1723. {
  1724.   static fd_set *listen_set = NULL;
  1725.   static int listen_number = 0;
  1726.   static int *sock_array = NULL;
  1727.  
  1728.   fd_set fds;
  1729.   int selrtn;
  1730.   struct timeval timeout;
  1731. #ifndef SYNC_DNS
  1732.   int dns_fd;
  1733. #endif
  1734.  
  1735.   if(listen_set == NULL)
  1736.   {
  1737.     if(create_listen_fdset(&listen_set, &sock_array, &listen_number))
  1738.     {
  1739.       DEBUG(0,("listen_for_packets: Fatal error. unable to create listen set. Exiting.\n"));
  1740.       return True;
  1741.     }
  1742.   }
  1743.  
  1744.   memcpy((char *)&fds, (char *)listen_set, sizeof(fd_set));
  1745.  
  1746. #ifndef SYNC_DNS
  1747.   dns_fd = asyncdns_fd();
  1748.   if (dns_fd != -1) {
  1749.       FD_SET(dns_fd, &fds);
  1750.   }
  1751. #endif
  1752.  
  1753.  
  1754.   /* 
  1755.    * During elections and when expecting a netbios response packet we
  1756.    * need to send election packets at tighter intervals.
  1757.    * Ideally it needs to be the interval (in ms) between time now and
  1758.    * the time we are expecting the next netbios packet.
  1759.    */
  1760.  
  1761.   timeout.tv_sec = (run_election||num_response_packets) ? 1 : NMBD_SELECT_LOOP;
  1762.   timeout.tv_usec = 0;
  1763.  
  1764.   /* Prepare for the select - allow certain signals. */
  1765.  
  1766.   BlockSignals(False, SIGTERM);
  1767. #if defined(SIGUSR1)
  1768.   BlockSignals(False, SIGUSR1);
  1769. #endif /* SIGUSR1 */
  1770. #if defined(SIGUSR2)
  1771.   BlockSignals(False, SIGUSR2);
  1772. #endif /* SIGUSR2 */
  1773.  
  1774.   selrtn = sys_select(&fds,&timeout);
  1775.  
  1776.   /* We can only take signals when we are in the select - block them again here. */
  1777.  
  1778.   BlockSignals(True, SIGTERM);
  1779. #if defined(SIGUSR1)
  1780.   BlockSignals(True, SIGUSR1);
  1781. #endif /* SIGUSR1 */
  1782. #if defined(SIGUSR2)
  1783.   BlockSignals(True, SIGUSR2);
  1784. #endif /* SIGUSR2 */
  1785.  
  1786.   if(selrtn > 0)
  1787.   {
  1788.     int i;
  1789.  
  1790. #ifndef SYNC_DNS
  1791.     if (dns_fd != -1 && FD_ISSET(dns_fd,&fds)) {
  1792.         run_dns_queue();
  1793.     }
  1794. #endif
  1795.  
  1796.     for(i = 0; i < listen_number; i++)
  1797.     {
  1798.       if(i < (listen_number/2))
  1799.       {
  1800.         /* Processing a 137 socket. */
  1801.         if (FD_ISSET(sock_array[i],&fds))
  1802.         {
  1803.           struct packet_struct *packet = read_packet(sock_array[i], NMB_PACKET);
  1804.           if (packet)
  1805.           {
  1806.             /*
  1807.              * If we got a packet on the broadcast socket and interfaces
  1808.              * only is set then check it came from one of our local nets. 
  1809.              */
  1810.             if(lp_bind_interfaces_only() && (sock_array[i] == ClientNMB) && 
  1811.                (!is_local_net(packet->ip)))
  1812.             {
  1813.               DEBUG(7,("discarding nmb packet sent to broadcast socket from %s:%d\n",
  1814.                         inet_ntoa(packet->ip),packet->port));      
  1815.               free_packet(packet);
  1816.             }
  1817.             else if ((ip_equal(loopback_ip, packet->ip) || 
  1818.               ismyip(packet->ip)) && packet->port == global_nmb_port)
  1819.             {
  1820.               DEBUG(7,("discarding own packet from %s:%d\n",
  1821.                         inet_ntoa(packet->ip),packet->port));      
  1822.               free_packet(packet);
  1823.             }
  1824.             else
  1825.             {
  1826.               /* Save the file descriptor this packet came in on. */
  1827.               packet->fd = sock_array[i];
  1828.               queue_packet(packet);
  1829.             }
  1830.           }
  1831.         }
  1832.       }
  1833.       else
  1834.       {
  1835.         /* Processing a 138 socket. */
  1836.  
  1837.         if (FD_ISSET(sock_array[i],&fds))
  1838.         {
  1839.           struct packet_struct *packet = read_packet(sock_array[i], DGRAM_PACKET);
  1840.           if (packet)
  1841.           {
  1842.             /*
  1843.              * If we got a packet on the broadcast socket and interfaces
  1844.              * only is set then check it came from one of our local nets. 
  1845.              */
  1846.             if(lp_bind_interfaces_only() && (sock_array[i] == ClientDGRAM) && 
  1847.                  (!is_local_net(packet->ip)))
  1848.             {
  1849.               DEBUG(7,("discarding dgram packet sent to broadcast socket from %s:%d\n",
  1850.                         inet_ntoa(packet->ip),packet->port));      
  1851.               free_packet(packet);
  1852.             }
  1853.             else if ((ip_equal(loopback_ip, packet->ip) || 
  1854.                  ismyip(packet->ip)) && packet->port == DGRAM_PORT)
  1855.             {
  1856.               DEBUG(7,("discarding own packet from %s:%d\n",
  1857.                         inet_ntoa(packet->ip),packet->port));      
  1858.               free_packet(packet);
  1859.             }
  1860.             else
  1861.             {
  1862.               /* Save the file descriptor this packet came in on. */
  1863.               packet->fd = sock_array[i];
  1864.               queue_packet(packet);
  1865.             }
  1866.           }
  1867.         }
  1868.       } /* end processing 138 socket. */
  1869.     } /* end for */
  1870.   } /* end if selret > 0 */
  1871.   return False;
  1872. }
  1873.  
  1874. /****************************************************************************
  1875.   Construct and send a netbios DGRAM.
  1876.   Note that this currently sends all packets to port 138.
  1877. **************************************************************************/
  1878.  
  1879. BOOL send_mailslot(BOOL unique, char *mailslot,char *buf,int len,
  1880.                    char *srcname, int src_type,
  1881.                    char *dstname, int dest_type,
  1882.                    struct in_addr dest_ip,struct in_addr src_ip)
  1883. {
  1884.   BOOL loopback_this_packet = False;
  1885.   struct packet_struct p;
  1886.   struct dgram_packet *dgram = &p.packet.dgram;
  1887.   char *ptr,*p2;
  1888.   char tmp[4];
  1889.  
  1890.   bzero((char *)&p,sizeof(p));
  1891.  
  1892.   if(ismyip(dest_ip))
  1893.     loopback_this_packet = True;
  1894.  
  1895.   generate_name_trn_id();
  1896.  
  1897.   /* DIRECT GROUP or UNIQUE datagram. */
  1898.   dgram->header.msg_type = unique ? 0x10 : 0x11; 
  1899.   dgram->header.flags.node_type = M_NODE;
  1900.   dgram->header.flags.first = True;
  1901.   dgram->header.flags.more = False;
  1902.   dgram->header.dgm_id = name_trn_id;
  1903.   dgram->header.source_ip = src_ip;
  1904.   dgram->header.source_port = DGRAM_PORT;
  1905.   dgram->header.dgm_length = 0; /* Let build_dgram() handle this. */
  1906.   dgram->header.packet_offset = 0;
  1907.   
  1908.   make_nmb_name(&dgram->source_name,srcname,src_type,scope);
  1909.   make_nmb_name(&dgram->dest_name,dstname,dest_type,scope);
  1910.  
  1911.   ptr = &dgram->data[0];
  1912.  
  1913.   /* Setup the smb part. */
  1914.   ptr -= 4; /* XXX Ugliness because of handling of tcp SMB length. */
  1915.   memcpy(tmp,ptr,4);
  1916.   set_message(ptr,17,17 + len,True);
  1917.   memcpy(ptr,tmp,4);
  1918.  
  1919.   CVAL(ptr,smb_com) = SMBtrans;
  1920.   SSVAL(ptr,smb_vwv1,len);
  1921.   SSVAL(ptr,smb_vwv11,len);
  1922.   SSVAL(ptr,smb_vwv12,70 + strlen(mailslot));
  1923.   SSVAL(ptr,smb_vwv13,3);
  1924.   SSVAL(ptr,smb_vwv14,1);
  1925.   SSVAL(ptr,smb_vwv15,1);
  1926.   SSVAL(ptr,smb_vwv16,2);
  1927.   p2 = smb_buf(ptr);
  1928.   pstrcpy(p2,mailslot);
  1929.   p2 = skip_string(p2,1);
  1930.  
  1931.   memcpy(p2,buf,len);
  1932.   p2 += len;
  1933.  
  1934.   dgram->datasize = PTR_DIFF(p2,ptr+4); /* +4 for tcp length. */
  1935.  
  1936.   p.ip = dest_ip;
  1937.   p.port = DGRAM_PORT;
  1938.   p.fd = find_subnet_mailslot_fd_for_address( src_ip );
  1939.   p.timestamp = time(NULL);
  1940.   p.packet_type = DGRAM_PACKET;
  1941.  
  1942.   DEBUG(4,("send_mailslot: Sending to mailslot %s from %s IP %s ", mailslot,
  1943.                     namestr(&dgram->source_name), inet_ntoa(src_ip)));
  1944.   DEBUG(4,("to %s IP %s\n", namestr(&dgram->dest_name), inet_ntoa(dest_ip)));
  1945.  
  1946.   debug_browse_data(buf, len);
  1947.  
  1948.   if(loopback_this_packet)
  1949.   {
  1950.     struct packet_struct *lo_packet = NULL;
  1951.     DEBUG(5,("send_mailslot: sending packet to ourselves.\n"));
  1952.     if((lo_packet = copy_packet(&p)) == NULL)
  1953.       return False;
  1954.     queue_packet(lo_packet);
  1955.     return True;
  1956.   }
  1957.   else
  1958.     return(send_packet(&p));
  1959. }
  1960.